Shareware Grab Bag/Shareware Grab Bag.iso/003/db3ar.arc/SALES.PRG

Text File | 1985-10-15 | 3KB | 103 lines

********************************** (B:SALES.PRG)
CLEAR
@ 2,31 SAY 'Just a moment '
USE B:SALES
STORE 0.00 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
DO WHILE .T.
SET TALK OFF
SUM ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASHì
 TO MSR,MCR,MCH,MCREDAR,MSTCSH,MCCASH
SUM STORE_RING+COPY_RING TO RINGS
SUM CREDITS_AR+STORE_CASH+COPY_CASH TO MDEPO
SUM STORE_CASH+COPY_CASH TO ALLCASH
SUM STORE_CASH+COPY_CASH+CHARGES TO NEWSALES
AVERAGE ì
STORE_RING,COPY_RING,CHARGES,CREDITS_AR,STORE_CASH,COPY_CASH TO ì
ASR,ACR,ACHG,ACRED,ASC,ACC
GO BOTTOM
STORE DATE TO MDATE
@ 2,0 CLEAR
@ 3,0 SAY 'Store rings '
@ 3,28 SAY MSR PICTURE '9,999'
@ 3,50 SAY 'Average store ring '
@ 3,77 SAY STR(ASR,3,0)
@ 4,0 SAY 'Copy center rings '
@ 4,30 SAY STR(MCR,3,0)
@ 4,50 SAY 'Average copy ring '
@ 4,77 SAY STR(ACR,3,0)
@ 5,0 SAY 'Total rings '
@ 5,28 SAY RINGS PICTURE '9,999'
@ 6,0 SAY '--------------------------------------------------------------------------------'
@ 7,0 SAY 'Charges to A/R '
@ 7,24 SAY MCH PICTURE '99,999.99'
@ 7,50 SAY 'Average charge day'
@ 7,71 SAY ACHG PICTURE '99,999.99'
@ 8,0 SAY '--------------------------------------------------------------------------------'
@ 9,0 SAY 'Credits (A/R recieved) '
@ 9,24 SAY MCREDAR PICTURE '99,999.99'
@ 9,50 SAY 'Average A/R recieved '
@ 9,71 SAY ACRED PICTURE '99,999.99'
@ 10,0 SAY 'Store cash sales '
@ 10,24 SAY MSTCSH PICTURE '99,999.99'
@ 10,50 SAY 'Average store day '
@ 10,74 SAY STR(ASC,6,2)
@ 11,0 SAY 'Copy center cash sales '
@ 11,24 SAY MCCASH PICTURE '99,999.99'
@ 11,50 SAY 'Average copy day '
@ 11,74 SAY STR(ACC,6,2)
@ 12,0 SAY 'Total cash at counters '
@ 12,24 SAY ALLCASH PICTURE '99,999.99'
@ 13,0 SAY '                        ---------'
@ 14,0 SAY 'Deposits to bank '
@ 14,24 SAY MDEPO PICTURE '99,999.99'
@ 14,50 SAY 'Cash sales+charges'
@ 14,71 SAY NEWSALES PICTURE '99,999.99'
@ 9,34 SAY CHR(27)
@ 12,34 SAY CHR(27)
@ 9,35 SAY CHR(205)
@ 9,36 SAY CHR(205)
@ 9,37 SAY CHR(187)
@ 12,35 SAY CHR(205)
@ 12,36 SAY CHR(205)
@ 12,37 SAY CHR(188)
@ 10,37 SAY CHR(186)
@ 11,37 SAY CHR(186)
@ 12,37 SAY CHR(185)
@ 13,37 SAY CHR(186)
@ 14,37 SAY CHR(188)
@ 14,36 SAY CHR(205)
@ 14,35 SAY CHR(205)
@ 14,34 SAY CHR(27)
@ 15,0 SAY ì
'--------------------------------------------------------------------------------'
@ 17,25 SAY 'Do you want to enter a day? '
@ 17,62 SAY 'Last date'
@ 17,72 SAY MDATE
?
WAIT '                                     ? ' TO OPTION
IF OPTION='N'
RETURN
ENDIF
SET CONFIRM ON
@ 2,0 CLEAR
APPEND BLANK
@ 3,1 SAY 'Date ' GET DATE
@ 5,1 SAY 'Store rings ' GET STORE_RING
@ 7,1 SAY 'Copy center rings ' GET COPY_RING
@ 9,1 SAY 'Charges ' GET CHARGES
@ 11,1 SAY 'Credits/AR ' GET CREDITS_AR
@ 13,1 SAY 'Store cash sales ' GET STORE_CASH
@ 15,1 SAY 'Copy center cash sales ' GET COPY_CASH
READ
@ 20,1 SAY 'Is OK? '
?
WAIT ' ? ' TO  OPTION
IF OPTION='N'
EDIT RECNO()
ENDIF
SET CONFIRM OFF
CLEAR
RETURN
ENDDO